unit TDept;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TDeptVO = class(TDataTransferObject)
  private
    FDeptId: string;
    FDeptName: string;
    FSiteId: string;
    FOperId:String;
    FCreDate:String;
    FInfo1:String;
    FInfo2:String;
  published
    property PK_Dept_id: string index 0 read FDeptId write FDeptId;
    property dept_name: string index 1 read FDeptName write FDeptName;
    property site_id: String index 2 read FSiteId write FSiteId;
    property oper_id: String index 3 read FOperId write FOperId;
    property cre_date: string index 4 read FCreDate write FCreDate;
    property info1: string index 5 read FInfo1 write FInfo1;
    property info2: string index 6 read FInfo2 write FInfo2;
  public
    constructor Create;
    procedure Reset();
  end;
  
implementation

constructor TDeptVO.Create;
begin
  inherited Create;
  tbName := 'sys_dept';
  SetLength(GridInfo, 7);
end;

procedure TDeptVO.Reset();
begin
  FDeptId:='-999';
  FDeptName:='-999';
  FSiteId:='-999';
  FOperId:='-999';
  FCreDate:='-999';
  FInfo1:='-999';
  FInfo2:='-999';
end;

end.
